home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Pascal Super Library
/
Pascal Super Library (CW International)(1997).bin
/
LIBRARY
/
SWDOS12
/
ONEDRIVE.ASM
< prev
next >
Wrap
Assembly Source File
|
1995-02-10
|
2KB
|
66 lines
;******************************************************************
;* ONEDRIVE.ASM *
;* Source file for SoftWeyr enhanced DOS toolbox *
;* version 1.2 *
;* Copyright (c) by SoftWeyr,1995 *
;******************************************************************
MODEL TPASCAL
LOCALS
True EQU 1
False EQU 0
.DATA
EXTRN DosError :word
.CODE
PUBLIC GetDriveLetter,SetDriveLetter,IsDriveMappable
GetDriveLetter PROC FAR Drive:Byte
MOV BL,Drive
MOV AX,440EH
INT 21H
JC @@Error
cmp AL,0
JNZ @@1
MOV AL,Drive
CMP AL,0
JNZ @@1
MOV AH,19H
INT 21H
INC AL
@@1: ADD AL,64
SUB BX,BX
MOV DosError,BX
JMP SHORT @@Exit
@@Error:MOV DOSError,AX
MOV AL,'@'
@@Exit: RET
endp
IsDriveMappable PROC FAR Drive:Byte
MOV BL,Drive
MOV AX,440EH
INT 21H
JC @@Error
cmp AL,0
JZ @@1
MOV AL,True
@@1: SUB BX,BX
MOV DosError,BX
JMP SHORT @@Exit
@@Error:MOV DOSError,AX
MOV AL,False
@@Exit: RET
endp
SetDriveLetter PROC FAR Drive:Byte
MOV BL,Drive
cmp BL,'a'
JB @@1
SUB BL,'a'-'A'
@@1: SUB BL,64
MOV AX,440FH
INT 21H
JC @@Error
SUB AX,AX
@@Error: MOV DosError,AX
RET
endp
end